/***************************************************************************/
/* Procedimiento:  SolMultipleInsertar
/* Descripcion:   Insertar una fila en la tabla SolMultiple
/* Parametros:    ?InfoParametros
/*                pTransaccion. Numero identificador de la Transaccion
/*                pMensaje. Mensaje de comfirmacion o excepcion
/* Comentarios:         
/****************************************************************************/

PROCEDURE  SolMultipleInsertar(pniddocumento NUMBER, ptipo_maniobra VARCHAR2, 
						pestado VARCHAR2, particulo NUMBER, pfecha_solicitud VARCHAR2, 
						ppuerto_destino NUMBER, ppuerto_descarga NUMBER, pbuque NUMBER, 
						ppatente VARCHAR2, prectificado VARCHAR2, pfolio_entrada NUMBER, 
						pfolio_programacion NUMBER, pfecha_entrada VARCHAR2, pfecha_rectificacion VARCHAR2, 
						pfecha_programacion VARCHAR2, pfeta VARCHAR2, pidrecinto_desde NUMBER, 
						pidrecinto_hasta NUMBER, pvid NUMBER, pid_mcia VARCHAR2, 
						ppedimento VARCHAR2, pregimen VARCHAR2, pbooking VARCHAR2, 
						pregistro VARCHAR2, pconso_desconso VARCHAR2, pdc_emp_aduanal VARCHAR2, 
						pemp_aduanal VARCHAR2, pcliente VARCHAR2, prfc VARCHAR2, 
						pdireccion VARCHAR2, pciudad VARCHAR2, pcp VARCHAR2, 
						plinea_trans VARCHAR2, pchofer VARCHAR2, pplacas VARCHAR2, 
						pno_economico VARCHAR2, pno_licencia VARCHAR2, pfecha_actualizacion VARCHAR2, 
						prfc_responsable VARCHAR2, pnombre_responsable VARCHAR2, prepresentante VARCHAR2, 
						pprocesado_sip NUMBER, pprogramado_calt NUMBER, prfc_transportista VARCHAR2, 
						, pTransaccion OUT NUMBER, pMensaje OUT VARCHAR2)
AS
BEGIN
  INSERT INTO SolMultiple(nid, niddocumento, tipo_maniobra, 
						estado, articulo, fecha_solicitud, 
						puerto_destino, puerto_descarga, buque, 
						patente, rectificado, folio_entrada, 
						folio_programacion, fecha_entrada, fecha_rectificacion, 
						fecha_programacion, feta, idrecinto_desde, 
						idrecinto_hasta, vid, id_mcia, 
						pedimento, regimen, booking, 
						registro, conso_desconso, dc_emp_aduanal, 
						emp_aduanal, cliente, rfc, 
						direccion, ciudad, cp, 
						linea_trans, chofer, placas, 
						no_economico, no_licencia, fecha_actualizacion, 
						rfc_responsable, nombre_responsable, representante, 
						procesado_sip, programado_calt, rfc_transportista, 
						)
  VALUES               (seq_SolMultiple.nextval, pniddocumento, ptipo_maniobra, 
						pestado, particulo, to_date(pfecha_solicitud,'DD/MM/YYYY HH24:MI:SS'), 
						ppuerto_destino, ppuerto_descarga, pbuque, 
						ppatente, prectificado, pfolio_entrada, 
						pfolio_programacion, to_date(pfecha_entrada,'DD/MM/YYYY HH24:MI:SS'), to_date(pfecha_rectificacion,'DD/MM/YYYY HH24:MI:SS'), 
						to_date(pfecha_programacion,'DD/MM/YYYY HH24:MI:SS'), to_date(pfeta,'DD/MM/YYYY HH24:MI:SS'), pidrecinto_desde, 
						pidrecinto_hasta, pvid, pid_mcia, 
						ppedimento, pregimen, pbooking, 
						pregistro, pconso_desconso, pdc_emp_aduanal, 
						pemp_aduanal, pcliente, prfc, 
						pdireccion, pciudad, pcp, 
						plinea_trans, pchofer, pplacas, 
						pno_economico, pno_licencia, to_date(pfecha_actualizacion,'DD/MM/YYYY HH24:MI:SS'), 
						prfc_responsable, pnombre_responsable, prepresentante, 
						pprocesado_sip, pprogramado_calt, prfc_transportista, 
						);
  
  COMMIT;
  pTransaccion := 1;
  pMensaje := 'Terminado OK';
  dbms_output.put_line('Terminado OK');

EXCEPTION
  WHEN OTHERS THEN
    pTransaccion := 0;
    pMensaje := 'Error en  SolMultiple_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm;
    dbms_output.put_line('Error en  SolMultiple_Insertar:' || SQLCODE || ' Mensaje: ' || sqlerrm);
END;
